`classQual` <-
function(dataFrame,dataset)
{
	# Get some info
	rows = nrow(dataset)
	cols = ncol(dataFrame)
 	
	qual = 0

	# For each row in dataFrame.
	for(i in 1:rows) {
		cl = as.character(dataset[i,"class"])
		qual = qual + dataFrame[i,cl]
	}

	return(qual)	
}

